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SBEGIN NTODAPIO,000,NKSMETWORK,<DAP MESSAGE 1/0> 


* oa 
* COPYRIGHT (c) 1978, 1980, 1982, 1984 BY ® 
* DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. * 
. ALL RIGHTS RESERVED. * 

* 
* TH ® 
e @ * 
* 0 f° th 0 NY OTHER ®* 
* THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY * 
* OT ERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE iS HEREBY * 
* TRANSFERRED. * 
® a 
* THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * 
* AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * 
* CORPORATION. * 
x * 
* DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS * 
* SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. * 
® & 
® ® 
°* * 


PARBRBAAAASASASAAALALEALALALASASALASSLERARRERERSASASASERESRER ARERR REESE SRSA RS S| 
++ 

Facility: RMS 

Abstract: 


This module contains routines that transmit and receive DAP messages 
to and from the File Access Listener (FAL) at the remote node. 


Environment: VAX/VMS, executive mode 


SOOSCSCSCSSOSSOOSSOSOSOSOSOSOSOSOSOOCOSCOSOSOSOOOOOOOOSOOOOOSoOO 
SOoOOSCSOSCOCSOSOSSOSSSOSOSSOSOOSOSCSOSOSOSOSOSOSOSOSOSOOSOOOOOSOOSoOO 


SOOCOOGOOOSOSOSOSOSSCOOSOOCOCOCOOOCSOCSCO COCO SOO OCOOOSOOOOOOOOOOOOOOOOoOOO 


Look at proper fle block area (image or ppf) for possible 
rundown in progress flag. 


v03-002 JAKO119 J A Krycka 16-JUL-1983 


OOOO OCOCOCOOOOOOSOSOOOOOOOOOOSOOOSOSOSOSOSOSOOOOSOSOOSCS SOOO SOOOOOOOOOOOO 
NAME WR SO ODNAUE WN O OO NAU EWN OOD NAME WIN 0 ODNOAUE WN OOONOU Sw 
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Author: James A. Krycka, Creation Date: 09-DEC-1977 
Modified By: 
0 v03-006 ee Mogg Krycka 12-APR-1984 
00 Revise DAP ausaans "eterkion algorithm in FALSTRANSMIT to 
00 eliminate an extra move of the data and rename the message 
38 descriptors for outs 
00 V03-005 JAK0139 ycka hy bags 
oS Support DAP tee yi ty up to 65555 bytes. 
Bp v03-004 seis J A Krycka 20-MAR-1984 
33 Change a signed compare to an unsigned compare in NISTRANSMIT. 
bh V03-003 Jf J0G02 J E Johnson 28-Feb-1984 
00 
3 
0 
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NTODAPIO DAP MESSAGE 1/0 15-SEP-1984 23:55: AX/VMS Macro V04-00 P 
voe-000 Haat 4 3:33:58 RMS.SRCINTODAPIO.MAR; 1 = 


8 28 : Add NTSLCL_JOP error routine. 

8 ¢' 3 Keep following revision history for technical documentation. 

44 62 ; V02-034 TMKO0002 Todd M. Katz 21-F EB-1982 

94 65 ; Whenever we are waiting in RMS$STALL, we are waiting on the 

000 64 ; event flag associated with the transfer operation. This wiil 
0000 65 ; be regardless of whether we are waiting for the transfer or the 
0000 66 ; special receive operation to complete. If we are waiting for 
44 67 ; both operations to compiete, and one of them does, then when 

000 68 ; we dismiss the AST we stall ogetn waiting (on the transfer 
0000 ae operation's event flag) for the second operation to complete. 
0000 , § This will be regardless of whether the receive or the transfer 
0000 71; operation completes first. In file transfer mode it will be 
0000 72 ; possible that the receive associated with the first S$PUT is 
0000 f> 3 associated with one event flag. while the transfer associated 
0000 74 ; with an explicit SDISCONNECT is associated with another. This 
0000 ff? 3 quite Likely be the case when the RMS record operations are 
0000 76; performed Ld bg gy te To prevent the process hang which 
0000 a 3 will occur when the transfer operation completes before the 
0000 78 ; receive and the receive AST is delivered while we are again 
0000 79 ; wets tne for the event flag associated with the transfer 

0000 80 ; operation to be set, I have made two changes to the special 
0000 81; receive AST synchronization code. First, when the special 
0000 82 ; AST is posted, the event_flag used will always the throw — 
0000 83 ; event f op, covent flag# 31). Second, when the special receive 
0000 84 ; AST is delivered, and it is determined within NISSTALLAST 
0000 85 ; that a stall was explicitely requested, the event flag 

0000 86 ; associated with the transfer operation will be specifically 
0000 87 ; set preventing any possible hangs do to the receive and 

43 He : the transfer Q10s specifying different event flags. 
0000 90 ; v02-033 TMKOOO1 Todd M. Katz 19-FEB-1982 ; 

0000 91; In NT$SSTALLAST, if this AST is for & special receive we have 
0000 Fe 3 not stalled for, and RMS rundown is in progress, then before 
0000 93 3 dismissing the AST, set the IOREFN event flag. RMS rundown 
0000 94 ; has done a $CANCEL on this channel with ASTs disabled, cleared 
0000 95 ; this event flag, and is waiting for it to be set (indicating 
0000 96 ; that all Q10s canceled have completed) before it can continue 
0000 97 ; on and eventually close the file. 

0000 98 ; 

0000 99 3<- 
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DAP MESSAGE 1/0 15-SEP-1984 23:55:03 VAX/VMS Macro v04-00 Page 3 
DECLARATIONS andar yi 13:30:98 RMS.SRCINTODAPIO.MAR; 1 . (2) 
209 13) -SBTTL DECLARATIONS 
0 3 1 : ; 
$8 104 ; Include Files: 
$000 108° 
0000 «(1 5 SDAPPLGDEF ; Define DAP prologue symbols 
0000 108 SDAPHDRDEF ; Define DAP message header 
0000 109 SDAPCNF DEF ; Define DAP Configuration message 
0000 110 DAPSTSDEF ; Define DAP Status message 
0000 111 DAPF IDDEF ; Define DAP field ID symbols 
0000 116 $F ABDEF ; Define File Access Block symbols 
0000 11 IFBDEF ; Define IFAB symbols 
0000 114 SIMPDEF ; Define impure area definitions 
0000 115 SIODEF ; Define 1/0 function codes 
0000 116 SIRBDEF ; Define IRAB symbols 
0000 = 117 SNWADEF ; Define Network Work Area symbols 
0000 118 $PIODEF ; Define Process 1/0 Page symbols 
0000 119 SRMSDEF ; Define RMS completion codes 
0000 120 SRMSFALMSG : Define FAL status codes 
0000 121 
0000 \$¢ 3 
0000 123 ; Macros 
0000 124; 
0000 125; None 
0000 126; 
0000 127 ; Equated Symbols: 
0000 128 ; 
0000 192 
00000001 44 170 RMS__FACILITY=1 ; RMS facility code 
0000 132 ASSUME DAP$Q_DCODE_FLG EQ 0 
0000 133 ASSUME NWASQ"FLG EO 0 
VOUG 134 
0000 i335 ; 
0000 136 ; Own Storage: 
0000 137; 
0000 138: None 
0000 139, 
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AP MESSAGE I/ 15-SEP-1984 3:33:03 AX/VMS Macro V04-00 

NTSTRANSMIT = SEND DAP MESSAGE 5-SEP-1984 16:20:28 (CRMS.SRCINTOCAPIO.MAR;1 
| 0 .SBTTL NTSTRANSMIT = SEND DAP MESSAGE 
p++ 
; NTSTRANSMIT = sends the specified DAP message to the remote FAL. 
0 DAP outbound message blocking is nypeorese: Consequently, the new 
| 0 message wil be buffered (blocked with others) and delivered later 
0 unless the NWASV_LAST_MSG bit is set or DAP messsage blocking is 
disabled. 
| 6 Calling Sequence: 
8 BSBW NTSTRANSMIT 
| 4 Input Parameters: 
| R7 NWA (=DAP) address 
| 0 PB FAB/RAB address 
R9 IFAB/IRAB address 
| R10 FWA/IFAB address 

$ R11 Impure Area address 


Implicit Inputs: 
DAP$V_LENGTH 
DAP$V_MSGBLK 
A$Q_BLD 
NWASQ— 
NWASW_DAPBUF SIZ 
NWASV_FLUSH_ BUF 
NWASV_LAST_MASG 
NWASV_RCVAST 
Output Parameters: 
RO Status code (RMS) 
R1i-R3 Destroyed 
AP Destroyed 
Implicit Outputs: 


DAP$L_DCODE_STS (on error) 
TFSt _108/1RBSL_10S 


WA 
NWASV_FLUSH BUF cleared 
NWASV_LAST_ASG cleared 


Completion Codes: 

Standard RMS completion codes 
Side Effects: 

None 


atatateiciabeiuieabet deaiebababaiababadbabeababend adadead ab aD aD and abet baba band abd aad ed ed baba bab ata aaa 
WOOO OOOO 0000.00 09 00.00 09 09 09 09 SI NINN NNN SNS SID DDD DA DAO TTT 
NAME WN SO ODONAUES WN OS OONAUES WN (OOD NAME WN 0 OONAUE WN OUOONOUS WN YO 


NTSTRANSMIT:: ; Entry point 


3 
wa DAP_MESSAGE I/ 15-SEP-1984 93: 7:55:03 VAX/VMS Macro Vv04-00 Page ; 
NTSTRANSMIT END DAP MESSAGE 5-SEP=-1984 16:20:28 CRMS.SRCINTODAPIO.MAR; 1 (3). 
30 BB PUSHR #*M<R4,R5> ; Save registers 


Check for possible Status message returned by FAL in response to a previous 
DAP message sent. 


09 67 04 gi BBC miei (R7),5$  ; Branch if no DAP message received 


es BSBW NTSRECEIVE ; Process the (Status) message 

03 50 S BLBS RO ; Continue only if it was a warning or 

008F BRW Exif i success Status message (which should 
3; not occur), else exi 


Process flush-blocked-messages-only option. 


a ee eS 5$: BBCC #NWASV_FLUSH_BUF,(R7),- ; Branch if flush option is disabled 
09 : (and initialize for next time thru) 
OOE8 C7 ~O5 TSTL NWASQ_XMT(R7) ; Branch if there are blocked DAP 
6C i2 BNEQ 40$ 3 _messages in buffer (explicit flush) 
OO7F 31 BRW suc ; Else, there is nothing to do 


: Does partner support message blocking? 


10$: STSTPT NTDAP i? 
BBS #DAPST_M 


Branch if message blocking is 
pasa syscaP CR?) , 15$ 


enabled 
Else send message immediately 


12 
03 28 A? 
0068 BRW 


; Are there any messages in XMT buffer waiting to go? 


m 

Oo 
DOOCOOOCOOCOCOCCOCOCSCOOOCOOSOSOCOOSOOSCOSCOBDOOCOOCOOCOOCOOOCOOOOCOOOCOOCOOOOOOOoOO 
Pc De ee cm ee |e | ee ee) ee ee ene eee lelolelolelelelelololelol ol eloleleleleololelololololalololola) 
CS NPM IPIOINYINVOY SC @OLOOCCOCOM PS PPP PF NLMO OOOO ONWN BTN HAOOOMNINIPINININO SP 
PIPIPIPINIMININININPININININYINPINYDININIPYNYINIPYNIPININYNYINYIDININIPONYPINYINIPOPIPIPYPIPIPPINYNIPUNIPYIPUNIPIN ¢ 
PUPP BS BS BS BBE EE EWAN WANNA AIR PINININININININID 2 2 PP OP OOO OM MOOOOOOCOCOCOCOONO 
PWR OWOONAU EWN 9 ODNAUE WIN O OD NAME WWN (OO OO NAMES WN" OVOONAULSWWN OOD VO 


PEPE EEE FWA AAINIIDIPIDININININININIDN 2 2 2 OO SS SOOO COOCOCOOOCVOOCOOCOOCOCOOo 


| 

| 

| 

| 

| 

| 

O0E8 C7 
20 

| 

| 

| 

| 

| 

| 

| 


05 15$: TSTL NWASQ_XMT(R7) ; Branch if there are no blocked DAP 
13 BEQL 20$ 3; messages in buffer 
> Will new message fit in XMT buffer with other messages? 
OOFO C7 C1 ADDL3 a =BLDCR?} «= ; Compute total # bytes if new message 
50 OQOE8 C7 WA$SQ_XMT(R7),RO ; were added to transmit buffer 
51 OOCA C7 3¢ MOVZWL NUASU ~DAPBUFSI2(R7) -R1 ; Prepare for ponguerd compare ae size 
: _in RO may slightly exceed 6 
51 50 01 CMPL RO,R1 ; Branch if new message can ‘, blocked 
34 «1B SLEQu 308 > with the others 
: Flush XMT buffer to make room for new message. 
54 OO0E8 C7 7D MOVQ NWASQ_XMT(R7), - ; Put buffer descriptor in <R4,R5> 
.. Ww BSBB RISTRENSALT T_PKT ; Send blocked DAP messages 
5250 €9 BLBC RO,EXIT ; Branch on failure 


a 


rc ————— = 5 
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ESSAGE 1/0 15-SEP-1984 23:55: AX/VMS Macro V04-00 Page 
NTSTRANSMIT = SEND DAP MESSAGE 5-SEP= 198 6:20: 93 ERMS. SRCINTODAPIO.MAR: 1 
OOE8 C7 04 0090 36 CLRL NWASQ_XMT(R7) ; Initialize byte count in descriptor 
| 
| 5 at 8 
| 0030 28 ; Determine whether new message should be sent now or deferred (bufferred). 
005 60 ° 
09 =séE $089 61 20$: BBC #<DAPS$V LENGTHS§> 4” ; Branch if this message does not allow 
Hs OOF4 D7 0052 $66 @NWASQ_BLD+4(R7 >, $0$ : additional blocking (implicit flush) 
867 00 €0 Been 6 BBS #NWASV_LAST “MSG, (R7),50$: Branch if this is Last message of 
OOSA 64 3 sequence texplicit flush) 
OOSA 65 
QOSA 26 3 
OOSA 67 ; Move new message to XMT buffer, or simply map message if BLD and XMT buffers 
O0OSA 268 ; are aligned. 
OOSA 269 ; 
O0SA 270 
OOFO C7 DO OOSA 271 MOVL NWAS$Q_BLD(R7),- ; Update byte count in descriptor 
OOE8 C7 00SE sie NWA$SQ_XMT(R7) : 
OOF4 C7 C1 0061 27 CMPL NWA$Q_BLD+4(R7) ,- ; Eliminate move of data if BLD and XMT 
OOEC C7 0065 274 NWASQ_XMT+4(R7) ; buffer addresses coincide 
31 13 0068 275 BEQL SU : 
OOFO C7 28 QO6A 276 MOVC3 NWAS$Q_BLD(R7),- ; Copy the message 
OOF4 D7 O06E 277 @NWASO_BLD+4(R7) ,- 3 
OOEC D? 0071 278 @NWASQ_XMT+4(R7) : 
25 11 0074 279 BRB suc : 
0076 280 
0076 281 ; 
One ses ; Append new message to XMT buffer which already abuts XMT buffer. 
0076 284 ¢ 
O0E8 C7 50 00 gore see 30$: MOVL RO,NWASQ_XMT(R7) ; Update byte count in descriptor 
007B 287 ; 
oh r8 4 ; Determine whether new message should be sent now or aeferred (bufferred). 
007B 290 
09 +€1 #OO7B 291 BBC #<DAP$V_LENGTH+8>,- ; Branch if this message does not allow 
04 O0F4 D7 007D 332 ANWA$Q_BLD+4(R7) ,40$ additional blocking (implicit flush) 
16 67 OO €1 QO081 29 BBC #NWASV_LAST_MSG, (R7), SUC: Fall thru if this is last message of 
0085 294 3 sequence (explicit flush) 
0085 295 
0085 296; 
0085 344 ; Send blocked messages from XMT buffer. 
085 295 ; 
54 QOE@ C7? 7D 0085 00 40$: mMOVa NWASQ_XMT(R7), hs ; Put buffer descriptor in <R4,R5> 
19 10 OQO8A 301 BSBB NTSTRANSMIT_PKT : Send blocked DAP messages 
| OOE8 C7 04 008C $08 CLRL NWASQ_XMT(R7) ; Initialize byte count descriptor 
0c 11 0090 30 BRB EXIT : 
0092 304 
009 05 ; 
On8 8 3 Send new message from BLD buffer. 
09 08 * 
54 OOFO C7 7D 33 09 50$: MOVQ NWASQ_BLD(R7), m ; Put buffer descriptor in <R4,R5> 
Oc 10 94 10 BSBB NYSTRANSRIT T_PKT ; Send the message 
03 11 0099 11 BRB EXIT 2 
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/0 15-SEP-1984 
SEND DAP MESSAGE ats fi f 
1 
18 ; 
i ; Return to caller. 
18 
17 SUC: RMSSUC 
18 EXIT:  $CLRBIT #NWASV_LAST_MSG, (R7) 
3 POPR #*°M<RG,RS> 


:20:08 EAMSeSRCINTODA 


Return success 


Clear lLast-message-to-block flag 


Restore registers 


Exit with RMS code in RO 
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~ SEND DAP MESSAGE PACKE 'S-SEP=1984 16:20:28 [RMSVERCINTODAPIOWRAR;1 = 2a 


-SBTTL NTSTRANSMIT_PKT = SEND DAP MESSAGE PACKET 
ae 
sinha § “tees de: - sends the specified packet of DAP messages to the remote 


Calling Sequence: 
BSBW NTSTRANSMIT_PKT 
Input Parameters: 


RG Buffer size 

RS Buffer address 

R7 NWA (=DAP) address 
R8 FAB/RAB address 

R9 IFAB/IRAB address 
R10 FWA/IFAB address 
R11 Impure Area address 


; Implicit Inputs: 
NWASW_DAPBUF SIZ 
NWASQ-RCV 
NWASV_RCVQI10 
Output Parameters: 
RO Status code (RMS) 
R1i-R3 Destroyed 
AP Destroyed 
Implicit Outputs: 
DAP$L_DCODE STS (on error) 


DAPSQ"MSG 
IFBSL 10S7 1RBSL_10S 


NWASV_RCV 
Completion Codes: 
; Standard RMS completion codes 
Side Effects: 
None 


ASSUME IFBSL_IOS €Q IRB$L_IOS 


NTSTRANSMIT_PKT:: ; Entry point 

STSTPT NTDAP_XMT : 
s¢ 
3; Issue special receive Q10 with AST if none has been posted, to guarantee that 
3 there is always a receive posted to accept a possible error response (DAP 


I 
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DAP _MESSAGE 1/0 “SEP-1984 23:55: AX/VMS Macro V04-00 Page 9 NT 
NTSTRANSMIT_PKT = SEND DAP MESSAGE PACKE ater 1 3:38:98 LRMS SRCINTODAPIO.MAR: 1 . (4) vo 
OAB 79 ; Status message) from FAL. If all goes well, then this receive will be used 
OAB Q ; to accept the normal DAP message response from FAL after the transmit message 
Boas 1 ; sequence is complete. 
OAB 5s ; Note: This is termed a special receive Q10 because (1) the NWA is used to 
OAB 4; store the 1/0 status block instead of the IFAB, and (2) NTS$STALLAST is 
OAB 85 ; used to process the AST instead of RMSSTALLAST. These changes were 
QOAB 86 ; necessary to allow both a transmit and a receive Q10 request to be 
Bpae tf ; outstanding on the same channel in RMS. 
QOAB 89 ; Note: Always use the IFAB address as the AST parameter because the the IFAB is 
OAB 90 ; Quaranteed to be around for both IFAB and IRAB based operations, as this 
OAB v1 2 receive may be qoater in an IRAB context ($PUT) and completed in an IFAB 
00AB 35 3 context ($CLOSE). 
OOAB 93 :- 
QOAB 94 
33 67 +03 £0 OQOAB 95 BBS #NWASV_RCVQIO,(R7),10$ ; Branch if special receive is posted 
08 A? DS OOAF 396 TSTL DAP$Q_ASG_BuUFI(R7) ; Branch if receive buffer is in use 
2—E 12 00B2 97 BNEQ 10$ : sted that a receive message 
0084 98 3 sequence is in progress 
6C 10 00B4 99 BSBB SETUP_QIO_PARAM ; Return with IFAB address, EFN #, and 
00B6 00 3 channel # in R1-R3, respectively 
0086 01 $Q10_S- ; Issue receive Q10 request 
00B6 8 EFN=#IMPS$C_ASYQIOEFN- ; Use throw away event flag 
00B6 0: CHAN=R3- 3 Channel # 
00B6 04 FUNC=#10$_READVBLK=- 3 Function code 
00B6 05 IOSB=NWASG_IOSB(R7)- ; Receive 1/0 status block address 
0086 06 ASTADR=W°NTSSTALLAST- ; AST routine address 
00B6 07 ASTPRM=R1- ; Always use IFAB address 
0086 08 P1=QNWASQ_RCV+4(R7)- ; Buffer address 
Q00B6 409 P2=NWASW DAPBUFSIZ(R7) ; Buffer size. 
38 50 «=6E9 §=600DB 10 BLBC RO,ERRSY ; Branch on failure 
sit4 Vy SSETBIT #NWASV_RCVQIO, (R7) ; Set special receive Q10 posted flag 
OOE2 13 i+ : 
QOE2 14 ; Issue transmit Q10 with AST. =. 
O0E2 15 ; If outbound DAP message blocking is in effect, then more than one DAP message 
O0E2 16 ; may be transmitted via this QI10. 
ae 
3E 10 OQOE 19 10$: BSBB SETUP_QI10_PARAM ; Return with IFAB address, EFN #, and 
O0E4 20 ; channel # in R1-R3, respectively | 
O0E4 21 $Q10_S- ; Issue transmit Q10 request 
O00E4 $§ EFN=R2- ; Event flag # 
OOE4 é CHAN=R3- ; Channel # 
OOE4 24 FUNC=#10$_WRITEVBLK- 3; Function code 
O0E4 25 I1OSB=IFB$C_IOS(R9)- ; IFAB/IRAB IOSB address 
O0E4 $8 ASTADR=L“°RASSTALLAST- ; AST routine address 
O00E4 7 ASTPRM=R9- ; IFAB/IRAB address 
Q0E4 8 P1=(R5)=- ; Buffer address 
sh 9 P2=R4 ; Buffer size 
0D 50 €9 0106 0 BLBC RO,ERRSYS ; Branch on failure 
OO'EF 16 0109 431 JSB RMSSTALL > Await completion 
04 50 + €9 Big 3 piee RO,ERRSYS ; Branch on failure 
Wg 3 RMSSUC ; Return success 
05 Bi2 $e RSB ; Return with RMS code in RO 


FEE2" 30 
18 A? 4 


' 
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/0 3 SEP-1 1384 $3 +33 FY YAX/VMS Macro V04-00 Page 
KT = SEND DAP MESSAGE PACKE 5-SEP-1 0: LRMS.SRCINTODAPIO.MAR; 1 
qe 5 oe pe code for transmit, interrupt, and receive routines to process a Q10 

; ure, 
40 
41 ERRSYS: A SYS,R1 3; Set default RMS code 
ts BSB RMSMAPERR ; Map SS code into RMS code and 
4 ; _put SS code in STV field 
44 CLRL DAP$L_DCODE_STS(R7) ; Zero message parse stacus code to 
45 3; indicate that this error was not 
46 ; _generated from a Status message 
47 RSB ; Return with RMS code in RO 


eee 


K 1 
15-SEP- 1384 93:3 3:93 Pan ivet Oe v04-00 Page 
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"This is a Q10 support routine that obtains the IFAB address, event — 
pacer and channel number to use. This routine uses the fact that an ]RAB 
block [D is even and an IFAB block ID is odd. 
Input Parameters: 
R9 IFAB/IRAB address 


Output Parameters: 


3 
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R1 IFAB ogpress 
Re Event or a 
R Channel # 
SETUP_Q10_PARAM: ; Control point 
QOOOOO000'EF 16 J5B RMSSETEFN ; Request event flag # to use 
s¢ 6 6ECéiD MOVL (SP)+,R2 3 and store it 
ASSUME IFB$B_BID EQ IRB$B_BID 
ASSUME <IFB$C_B1D81> EQ 1 
ASSUME <IRBS$C_BID&1> E29 0 
7. We MOVL R9,R1 ; Get IFAg/IRAG address 
03 08 Ad «EB BLBS IFB$B_BID(R9) ,10$ ; Branch if this is an IFAB 
1 69 00 MOVL IRBSL_IFAB_LNK(R9),R1 ; Get IFAB address from IRAB 
53 20 Al 3 10$: Rov cul. IFBSW_CHNLTR1) ,R3 ; set channel 
: x1 
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_ V04 NTSIN UPT = SEND INTERRUPT MESSAGE -SEP-1984 5:30:98 YAMS SRCINTODAPIO. MAR: 1 ° (6) 
| 479 .SBTTL NTSINTERRUPT = SEND INTERRUPT MESSAGE 
481 ;+¢ 
& § ; NTSINTERRUPT = sends the specified DAP message to the remote FAL as an 
? t nterrupt message. 
? 5 ; Calling Sequence: 
if BSBW 40s NTS INTERRUPT 
$33 ; Input Parameters: | 
491 R7 NWA (=DAP) address 
138 R8 FAB/RAB address 
49 &g IFAB/IRAB address 
494 R1 IFAB address 
rs : R11 Impure Area address 
49 Implicit Inputs: 
rt ee ss | 
499 NWASQ_XMT 


Output Parameters: 
R Status code (RMS) 
R1i-R3 Destroyed 
AP Destroyed 
Implicit Outputs: 


DAPSL_DCODE_STS (on error) 
IFB$L_10S/IRB$L_10S 


; Completion Codes: 
Standard RMS completion codes 


; Side Effects: 
None | 
ASSUME IFBS$L_IOS €Q IRB$L_IOS 


NTSINTERRUPT: : : Entry point 
$STSTPT NTDAP_XMT 3 
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+ 
Issue interrupt Q10 with AST. | 


Note: It is not necessary to issue a special receive Q10 (Like NTSTRANSMIT_PKT 
~ does) because FAL is not in a state where it is trying to send RMS a 
mpeee Ds SOENGEs FAL is waiting for this interrupt message to tell it 
what to do next. 
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| wrgoee je DAP MESSAGE 1/0 tj SP 4 3:33:03 AX/VMS Macro V04-00 Page 13 | 
—v06- NTSINTERRUPT = SEND INTERRUPT MESSAGE -SEP-1984 16:20: RMS.SRCINTODAPiO.MAR; 1 (6) 
EO 10 O14 § BSBB SETUP_QIO_PARAM : Return with IFAB aqéress. EFN #, and 
14 3 _channel # in R1-R3, respectively 
14 8 $010_S- ; Issue interrupt Q10 request 
14 9 EFN=R2- ; Event flag # 
014 ef CHAN=R3- :. Channel # z 
bie 4) FUNC=#10$_ WRITEVBLK! IOSM_INTERRUPT= ; Function code 
14 6 1OSB=IFB$C_I0S(R9)- 3; IFAB/IRAB I0SB address 
014 4 ASTADR=L“RASSTALLAST- ; AST routine address 
014 44 ASTPRM=R9- ; IFAB/IRAB address 
014 545 P1=QNWASQ_XMT+4(R7)- : Buffer address 
014 546 P2=NWASQ_XMT(R7) ; Buffer size 
9 50 €9 Q16A ef BLBC RO,ERRSYS1 3 Branch on failure | 
QOOODD00'EF 16 O16D 548 JSB_ RMSSTALL ; Await completion 
0450 €9 0173 549 BLBC RO,ERRSYS1 ; Branch on failure 
0176 550 RMSSUC ; Return success | 
05 0179 551 RS ; Return with RMS code in RO | 
FF99 «31 «O17A_—«4552 ERRSYS1:BRW —- ERRSYS ; Branch aid | 
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NWASV-RCVSTALL 


: ; Completion Codes: 


Standard RMS completion codes 


; Side Effects: 


None 


=SEP=19 3:55: AX/VMS Macro V04-00 Page 14 | NT 
CEIVE DAP MESSAGE "3: iets 6:20: 9 RMS .SRCINTODAPIO.MAR; 1 . (7) | Sy 
-SBTTL NTSRECEIVE = RECEIVE DAP MESSAGE 4 
i+ RM 
; NTSRECELVE = accepts the next DAP message packet from the remote dg 2 RM 
; DAP inbound message blocking is supported. Consequently, the ne SE 
; popeune processed may alrea be in the receive buffer (blocked. with ST 
: others) unless DAP message hlocking is disabled. | a 
Calling Sequence: | SY 
BSBW  =- NTSRECEIVE | TP 
: Input Parameters: | ha 
: R7 NWA (=DAP) address 
: RB FAB/RAB address | 
5 R9 IFAB/IRAB address 
; R10 FWA/IFAB address 
3 R11 Impure Area address | PS 
: | 
3; Implicit Inputs: -- 
: DAP fields | NK 
; DAPSV_VAXVMS $A 
: NWA$Q"10SB 
; Nu WASQ— RCV 
3 NWASV_NODECODE | 
: NWASV_ RCVAST 
: NWASV_RCVQIO on 
; Output Parameters: > 
° n 
: RO Status code (RMS) Co 
3 R1i-R3 Destroyed Pa 
: AP Destroyed 3 
: a 
: Implicit Outputs: | sy 
3 S$ 
; DAP$L_DCODE_STS (on error) Cr 
3 DAP fields As 
: Lhe T0S/1ResL_ 10S 
3 WASL_ THREAD Th 
: NUASH _DAPBUF SIZ : 10 
3 NWASV™ “NODE LODE cleared | Th 
; NWASV_RCVAS 1 
; NWASV_ “REVOIO 37 


B 2 


AP MESSAGE 1/0 137 360-1384 3:33:93 AX/VMS Macro Vv04-00 Page 15 
NTSRECEIVE = RECEIVE DAP MESSAGE 5-SEP-1984 16:20:28 (CRMS.SRCINTODAPIO.MAR; 1 (7) 
170 611 
10 e16 ASSUME IFBSL_10S £2 IRBS$L_I0S 
17D 614 NTSRECEIVE:: ; Entry point 
#4! 615 STSTPT NTDAP_RCV 3 
08 A? DS O18 $18 L DAP$Q_MSG_BUF1(R7) ; Branch if there is a blocked DAP 
7112 O88 af BNEQ DECODE_DAP_MSG 3; message in receive buffer to process 
18 619 ;+ 
188 620 ; Check for special receive Q10 posted (by NTSTRANSMIT_PKT). 
188 621 ; If DAP inbound oe blocking is in effect, then more than one DAP message 
133 6 ¢ ; may be received via this Q10. 
O18 Goa | 
2C 67 O03 €1 O188 625 BBC #NWASV_RCVQIO,(R7),20$ ; Branch if special receive not posted | 
OF 67 04 €0 Q18C 626 BBS #NWASV_RCVAST,(R7),10$ ; Branch if special received completed | 
0190 627 SSETBIT #NWASV-RCVSTALL, (R?) 3; Set flag to resume thread after stall 
OOFC C7 59 DO 0194 628 MOVL RO, NWASL_THREAD(R7) ; Save IFAB/IRAB address that we are 
0199 629 : pease ong on for use by NTSSTALLAST 
0199 630 ; before it branches to RMSTHREADGO 
OOO0O0000'EF 16 0199 631 JSB RMSSTALL ; Await completion of special receive 
019F O36 ; Note: RO contains garbage on return 
QO19F 633 10$: SCLRBIT #NWASV_RCVQIO, (R7) ; Clear receive posted flag 
O1A3 39634 SCLRBIT #NWASV_RCVAST,(R7) : Clear receive AST delivered flag 
50 0008 C7 3¢ OIA? 635 MOVZWL NWASQ_TOSB(R7),RO ; Get status code 
7350 €9 QIAC 636 BLBC RO,ERRSYS2 ; Branch on failure | : 
OODA C7 =3C O1AF 637 MOVZWL NWA$Q_10SB+2(R7),- ; Store # bytes received in 
QOEO C7 01B3 638 NWASQ_RCV(R7) ; descriptor 
3B 42611 «#40186 «86639 BRB ; Join common code 
01B8 640 
01B8 641 ;+ ; | 
0188 o6¢ ; Issue receive Q10 with AST unless there is a blocked message to process. 
01B8 6435 ; If DAP inbound message blocking is in effect, then more than one DAP message 
01B8 644 ; may be received via this Q10. 
01B8 645 ;- 
01B8 646 af 
FF67 30 0188 647 20S: BSBW SETUP_Q10_PARAM Return with IFAB address, EFN #, and 
01BB 648 channel # in R1-R3, respectively 
01BB 649 $Q10_S- Receive DAP messages(s) from FAL 
01BB 650 EFN=R2- Event flag # 
01BB 651 CHAN=R3- Channel # 
01BB 636 FUNC=#10$_READVBLK- Function code 
016B 65 1OSB=IFBSC_IOS(R9)- IFAB/IRAB I0SB address 
see 654 ASTADR=L“RASSTALLAST- AST routine address 
1BB 655 ASTPRM=R9- NWA address plus flag 
01BB 656 P1=@NWASQ RCV+4(R7)- Buffer address 
01BB 657 P2=NWASW_BAPBUFSIZ(R7) Buffer size. 
36 50 £9 Q1E1 658 BLBC RO,ERRSYS2 ; Branch on failure 
OO00009O"EF 18 OIE 659 JSB RMSSTALL Await completion 
35 50 €9 OIEA 660 BLBC RO,ERRSYS2 Branch on failure | - 
OE A 1ED 661 MOVZWL IFB L_10S+2(R9) ,- Store # bytes received in 
OOEO C7 OF NWASQ_RCV(R7) ; descriptor 
O0OEO C7 7D OF 30$: mova NWASQ_RCV(R7) ,- Copy descriptor to DAP control 
08 A7 iF DAPSQ"MSG_BUF {(R7) block 
1F9 §=665 
pF? 666 ;+ : - ; 
1F9 667 ; Decode next DAP message received and process any message parsing failure or 


; Branch if DAP Status message was 


DAP MESSAGE 1/0 1§-SEP-1984 23:55: 
NTSRECEIVE - RECEIVE DAP MESSAGE -SEP-1984 16:20: 
1F 668 ; receipt of a DAP Status message. 
1F 669 ie 
1F 670 
1F9 671 DECODE_DAP_MSG: F 
bry 676 STSTPT NTDAP_DEC : 
18 67 02 £4 FE 673 BBSC § #NWAST_NODECODE,(R7),10$; 
6 03 675 SSETBIT #DAPSK_STS_MSG,- : 
020 676 DAPSL_ASG_MASK(R7) : 
57 DD 0208 677 PUSHL R : 
oooo'cr 01 FB O20A 678 CALLS #1,W*NTSDECODE_MSG : 
1C A? D4 g0F 679 CLRL DAPSL_MSG_MASKTR7) : 
5E 50 £9 0 12 681 BLBC RO, PARSE_FAILURE : 
1A A?) 91 (021 68¢ CMPB  DAP$B_DCODE_MSG(R7),- : 
09 0218 68 #DAPSR_STS_ASG ; 
03 12 0219 684 BNEQ 10$ 
0095 31 0218 685 BRW STATUS_RETURN : 
O21E 686 10$: RMSSUC : 
05 0221 687 RSB : 
FEF1 31 0222 688 ERRSYS2:BRW ERRSYS : 


- 
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roe 


Parse next DAP message 


Branch if message is not to be parsed 
(and initialize for next time thru) 
Flag Status message as valid 
to receive from FAL 
Push address of DAP control block 


; Decode message into DAP control block 


Clear valid message slegs 
(initialize for next time thru) 
Branch if message parse failed 


received 
Return success 


Return with RMS code in RO 
Branch aid 


aria 
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NTSSTALLAST 8 
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0 

RECEIVE AST ROUTINE -SEP-1984 16:20: RMS. SRCINTODAPIO.MAR; 1 (8) Tal 
9 .SBTTL NTSSTALLAST - RECEIVE AST ROUTINE 


*+¢ 
NTSSTALLAST - is the receive AST routine for a (special) receive posted 
early by NTSTRANSMIT_PKT. 


Note corefully the Bet tourney: 
The call to RMSCHKAST must be a BSBW and immediatedly follow the entry 
mask. Furthermore, if ASTS are inhibited (as is the case after RMS is 
entered but before the first call to RMSSTALL), then this AST will be 
requeuved instead of returning control to the instruction following the 
*BSBW RMSCHKAST’ instruction. Then after RMS$STALL is called, the AS 
bb be get seared and control will return after the "BSBW RMSCHKAST' 
nstruction. 


Calling Sequence: 
CALLS #5,NTSSTALLAST (invoked by VAX/VMS as an AST routine) 
Input Parameters: 
; 4(AP) IFAB address 
: Implicit Inputs: 
Contents of IFAB 
L PTR 


Output Parameters: 


PO Set to contents of Ist word of 1/0 status block 
R1-R3 Destroyed 
R4-R11 Contents before stall 


AP Destroyed ; 
SP Address of stack ne A same contents as before stall 
FC Restored to return in line after call to RMSSTALL 


; Implicit Outputs: 


IMPSL_SAVED_SP set appropriately for new stack 
MPSV_AST set 

NWASV_RCVAST set 

NWASV_RCVSTALL cleared 


; Completion Codes: 

System service status code from first word of I/0 status block 
; Side Effects: 

The AST may be requeued (by RMSCHKAST). 

RMS will be running at AST Level on exit. 


Secondary user structures require reprobing before use. 
Absolute stack addresses will be different on exit. 


: impure area 


NNN NNN NO 
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NTODAPIO DAP MESSAGE 1/0 1R=3E= 1388 3:55:03 VAX/VMS Macro v04-00 Page 18 
v04 NTSSTALLAST = RECEIVE AST ROUTINE 5-SEP-1984 16:20:28 CRMS.SRCINTODAPIO.MAR; 1 (8) 
; oe 5 If RMS rundown is in progress, the 1/0 rundown event flag will be set. 
3 i a 
OFFC ; 751 -ENTRY WNTSSTALLAST,“*M<R2,R3,R4,R5,R6,R7,RB,R9,R10,R11> 
FDD6" 30 136 BSBW  RMSCHKA ; Check for ASTS inhibited 
57 3¢C ADs See MOVL IFBSL_NWA_PTR(R9) ,R7 ; Get address of NWA 
O22E 754 ; Note: R9 olvers contains IFAB address 
0 3 755 SSETBIT #NWASV_RCVAST,(R7) ; Set receive AST delivered flag 
2067 O05 €&4 Q £36 BBSC #NWASV_RCVSTALL,(R7),30$; Branch if waiting in RMSSTALL 
0 36 ie ; and reset flag 
52 Q0000000'9F ODE 5 6 526 MOVAL @#P10$GW_IIOIMPA,R2 ; Assume that this is an image file 
22 €1 0230 760 BBC #1FBSV_PPF_IMAGE,- ; Now check the attached IFAB to see if 
07 69 O23F 761 (RI) ,10$ ; we really have an image file 
52 00000000°9F DE 0241 roe MOVAL a@#PIO$GW_PIOIMPA,R2 ; No, we have a process permanent file 
4 E1 02468 763 108: BBC #IMP3\V_IORUNDOWN, - ; If RMS rundown is in progress then 
09 62 024A 764 (R2),20$ ; set the I/0 rundown event flag to 
Oe4¢ 765 SSETEF_S #IMPSC_IOREFN ; allow rundown to complete 
04 8522 166 208: RET ; Dismiss AST 
59 OOFC C7 DO 0256 768 308: MOVL NWASL_THREAD(R7) ,R9 ; Pick up the IFAB/IRAB address that 
ose6 769 ; _was used to stall on 
QOO00000'EF 16 0258 770 JSB RMSSETEFN ; Retrieve event flag for the transfer 
52 8EDO0 0261 £771 POPL R2 i operation that we are stalled on 
Bsee A: SSETEF_S R2 3; _and set it 
OOOOOO0O'EF 17 O26D 77 JMP RM$STHREADGO ; Cause return from RMSSTALL 
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DAP MESSAGE 1/0 
PROCESS DAP MESSAGE PARSE FAILURE ~SEP-19 6:20: RMS .SRCINTODAPIO.MAR; 1 (9) 
ry 77s .SBTTL PROCESS DAP MESSAGE PARSE FAILURE 
7 58 p++ 
4 ore ; CASE 1 == NTSDECODE_MSG failed to parse the received DAP message. 
7 780 ; Possible MACCODE values returned by NTSDECODE_MSG are DAPS$_UNSUPPORT, 
7 781 ; DAPS_FORMAT, DAPS_INVALID, and DAPS_MSG_SYNC. The first is mapped to 
. ae ; ; RMS$"SUP and the Catter three are mapped into RMS$_BUG_DAP. Therefore: 
027 783 ; (1) STS of FAB/RAB = RMS$_SUP or RMS$_BUG_D 
8 4 ; (2) STV of FAB/RAB = DAP Status code Tprefixed by RMS facility code) 
8 4 789 ; Note: The STS value is returned in RO less the RMS facility code. 
0273 788 * 
8 7 789 PARSE_FAILURE: ; Code segment of NTSRECEIVE | 
A? 91 7 790 CMPB DAPSB_DCODE_MAC(R7),- ; Branch if error is not 
OA 0 6 791 #DAP$_MSG_SYNC 3; ‘message-out-of-sequence’ 
06 12 027 792 BNEQ 3 
A 9A 0279 792 MOVZBL DAPS$B_DCODE_MSG(R7),R1 ; Get message type number 
OA 11 O27D 794 BRB 208 ; Join common code 
AZ 9A O27F 795 10$: MOVZBL DAPSB_DCODE_FID(R7),.R1 ; Get ID of field in error 
A7 =6FO 0283 796 INSV DAPSB_DCODE_MSG(R7),- ; Insert message type number 
06 0286 797 #6,#6,R1 : 
A? FO 0289 798 20$:  INSV  DAPSB’DCODE_MAC(R7),- ; Insert MACCODE error code 
oc 028C 799 #12,45,R1 : 
51 B80 O28F 800 MOVW R1,FABSL_STV(RB) ; Update STV field of FAB/RAB 
01 BO 0293 801 MOVW #RMS_ _FATILITY,=- z Add RMS facility code to value 
AB 0295 4 FABSC_STV+2(R8 ; _in STV field of FAB/RAB 
A? 3691 «4029780 CMPB DAPSB_DCODE_MAC(R7),- ; Did parse fail because a Stptdfeps ten 
02 029A 804 #DAP$_UNSUPPORT ; received is not supported by RMS? 
06 13 0298 805 BEQL 30 ; Branch if yes 
bg38 806 RMSERR BUG_DAP ; Declare Data Access Protocol error 
05 0 Ag 807 R ; Exit with RMS code in RO 
bs 808 30$: RMSERR SUP ; Declare message unsupported 
05 O2A8 809 RSB ; Exit with RMS code in RO 
02A9 = 810 
O2A9 = B11; +4 
Q2A9 aig ; This routine is called to report a Data Access Protocol error detected by 
02A9 15 ; NTSSEARCH in processing the NAMETYPE field that was not detected by 
BsAe te: 3 NTSDECODE_MSG when the Name message was parsed. 
02A9 a18 ’ 
O2A9 17 NTSBUG_NAMETYPE: : ; Entry point |. ’ 
09 «=—90 8 Ag $18 MOVE #DAPS_INVALID,- ; Field value is invalid 
A? AB BI DAPSB-DCODE MAC(R7) ; 
10 90 O2AD 559 MOVB #DAPS_NAMETYPE ,- : Identify field 
A7 O2AF 821 DAP$B_DCODE_FID(R7) Seo & 
cO 4611 #0281 822 BRB PARSE~ FAILURE ; Join common code 


15-SEP-1984 23:55: AX/VMS Macro Vv04-00 
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~SBTTL PROCESS DAP STATUS MESSAGE FROM FAL 


ay 


rae 8, 


ad 
CASE 2 == RMS received a DAP Status message from partner. 


The DAP status code may indicate: 
: ) success or failure of file operation attempted by the remote file system 
(2) the requested file operation is not supported by the remote system 
(3) a Data Access Protocol error detected at the remote system 
In all cases, RMS will translate the DAP status code into an RMS completion 
; code that may also have an associated secondary status code. 


; If the DAP status code maps directly into an RMS completion code, then: 
of FAB/RAB = opti He RMS status code 
f FAB/RAB = 0 or supplementary information if any received from FAL 


FAB/RAB = 


corresponding RMS status code 
FAB/RAB = 


pecondory sretys code received if partner is VMS or 


——+ 14 
<0" <4 
oo oso 
ee 
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FAL$_DAP 


IL if partner is non-VMS 


: Or 


one of the fol 
FAB/RAB = RM 
FAB/RAB = 


FAB/RAB = 
FAB/RAB = 


lowing indirect ma 


S$_SUPPORT or RMS$_N 
FAL status code mapped from DAP status code 


RMS$_SUP, RMS$_NET, or RMS$_BUG DAP 
DAP Status code (prefixed by FAL facility code) 


; Note: The STS value is returned in RO Less the RMS facility code. 


pe ings will be made: 


STATUS_RETURN: ; Code segment of NTSRECEIVE 
ASSUME DAPS_PENDING EQ 0 
ASSUME DAPS$_SUCCESS EQ 1 
ASSUME DAPS_UNSUPPORT EQ 2 
ASSUME DAPS_FILE_OPEN EQ 4 
ASSUME DAPS_FILE_XFER EQ 5 
ASSUME DAPS_WARNING EQ 6 
ASSUME DAPS$_FILE_CLOS fe 7 
ASSUME DAPS_FORMAT EQ 
B ASSUME DAPS$_INVALID EQ 9 
: ASSUME DAPS$_MSG_SYNC EQ 10 
2$ 40 A? OC Oo €F B EXTZV #0 01 DAP SY_STSCODE (RZ) -Re ; Get MICCODE field 
5 40 A? 04 C EF B 8 EXTZV wie #4, ,DAPSW_STSCODE(R7),R5 ; Get MACCODE field 
: 3 SCASEB SELECTOR=R3- : Status returned by partner: 
8 1 FILE_ACCESS- ; File operation pending 
BF § FILE ACCESS- ; File operation successful 
BF UNSUPPORT=- 3; Request not supported 
BF 4 PROTOCOL- ; Undefined value a 
BF 5 FILE_ACCESS~- ; Error related to ogening a file 
BF § FILE _ACCESS=- ; Error related to file transfer 
BF 7 PROTOCOL- ; Undefined value 
BF 8 FILE_ACCESS- ; Error related to ay ee a file 
BF 79 ; PROTOCOL=- ; Incorrect message forma 
BF 80 ; PROTOCOL- ; Invalid field value 


i 
| 
| 
Z 
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PROCE TUS MESSAGE FROM FAL iets 7 13:30:98 CAMS SRCINTODAPIO.MAR: 1 . fd) 
; PROTOCOL=- ; Unexpected message for state 
:* 
i Process Data Access Protocol error; RMS$_BUG_DAP will be returned. 
PROTOCOL: ; Dispatched here from CASE statement 


; Declare Data Access Protocol error 

; Check for invalid file name string 
as this is not really a protocol 
error, just a Gil ference in file 
specification formats between 


RMSERR BUG ; 
CMPW : 
systems 


Besa. STSCODE( (R7),- 
#<<DAP$_INVALJDal2>!- 
<DAP$R_ACC_MSGa6>i- 
<DAP$_FILESPEC>!= 


0> 
BNEQ ne TO_STV 
RMSERR 
BRB DAPSTV. TO_STV 


40 A? Bl 
90D2 8F 


$ 
6 
0 
59 12 90 ; Branch if any other error 
8 Convert response to general 
SE 11 file name string syntax error 
0 Note that this prevents secure of 
8 RMS$_BUG_DAP in response 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 


to 
bad Tinval id) file epee tf iaet ten 
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902 ;+ 

90 : Process operation not supported error condition; RMS$_SUPPORT (with a 
904 ; secondary FAL status code from the NTSUNSUPPORTED conversion table) or 
905 ; RMS$_SUP (with an associated DAP status code) will be returned. 
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an6 s> 
90 
908 UNSUPPORT: i Dispatched here from CASE statement 
52 00000800 8F C0 909 ADDL2 #FALS_OFFSET_B,R2 ; Convert DAP MICCODE value to a FAL 
910 ; message number (see RMSFALMSG.MSG) 
50  OQO00'CF 9E 911 MOVAB W*NTSUNSUPPORTED,RO ; Get address of conversion table 
ae oe: ti¢ 10$: MOVZWL (RO)+,R1 : Get next FAL message code 
11 13 91 QL 2 ; Branch if end of table 
Ss 2 & 6S Ce 914 EXTZV -#3,.#12,R1,R3 : Obtain FAL message number (bits 3-14) 
53 52 861 915 CMPW R2,R3 ; Does DAP status code correspond to 
916 : this FAL message? 
F1 12 03 917 BNEQ 10$ : Branch if not--continue search 
03 918 RMSERR SUPPORT ; Generate orinery error code 
98: 6S 919 R FALCODE_TO_STV : Join common 
03 920 20$: RMSERR : Generate cateb-oll primary error code 
29 «41+ «03 921 BRB DAPCODE_TO_STV ; Join common code 
gk a, 
03 924 ; Process status information (success or failure) of file operation egvenptes 
925 ; oY the remote file system. The NISDAP_TO_RMS conversion table will be use 
03 9 § 3; to map the DAP status coae into a standard RMS completion code. RMS$ neifate 
8 927 ; (with a prcendery FAL status code) or RMS$_NET (with an associated DAP status 
4 3 ; code) will be returned if a direct mapping cannot be made. 
930 ° 
931 FILE_ACCESS: ; Dispatched here from CASE statement 
9 § RMSERR +h ; Start with general file access error 
0000'8F 52. BI S Pw R eH eg ee ; Branch if MICCODE value is too 
1D 1A 934 BGTRU DAPCOD STV ; large for conversion table 
50 O000'CF42  3C¢ 935 MOVZWL  wW* NISDAP. fo° SRMSER2I, RO ; Use MICCODE value as index into 
9 § ; _DAP-to-RMS conversion table : 
1f 50 OD €E} 9 BBC #13,R0,DAPSTV_TO_STV ; Branch if this is am RMS completion 


i ne 
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v04 PROCESS DAP STATUS MESSAGE FROM FAL -SEP=1984 16:20: RMS.SRCINTODAPIO.MAR; 1 (10) 
938 3 code; not a FAL status code 
51 50 00 g MOVL  RO,R1 : Copy FAL status code to R1 
340 RMSERR NETFAIL : Generate primary error code 
E 9% ; Fall thru to common code ... 
or 
E 944 ; An RASS_SUPPORT or RMSS_NETFAIL code has been generated and put in RO with 
—E 945 ; an associated FAL status code put in Rl. 
Be ke 
E 948 FALCODE_TO STV: : 
OC As 1 B60 3 949 mMOUW R1,FABSL_STV(R8) ; Put FAL status code from table in low 
O1F7 BF BO 950 MOVW #FAL$_FATILITY,- ; word of STV field of FAB/RAB 
OE AB 0 6 951 FABSL~STV+2(RBS : _and FAL facility code in high word 
05 8 326 RSB ; Exit with RMS code in RO 
ae 
0339 955 ; An RMS$_SUP, RMS$_NET, or RMS$_BUG_DAP code has been generated an put in RO. 
0339 B29 ; Each of these codes requires an associated DAP error code to be returned 
Oats 957 ; im the STV field of the FAB/RAB. This secondary code consists of the FAL 
e339 228 3; facility code in the upper word and the DAP STSCODE vaiue in the lower word. 
0339 960 ° 
0339 961 DAPCODE_TO_STV: 3 
40 A? BO 0339 396 molw DAP$W_STSCODE(R7) ,- ; Put DAP status code received in low 
OC A8 Oeee 96 FABSL_STV(R8) ; word of STV field of FAB/RAB 
O1F7 BF BO 03 964 MOVW #FALS_FACILITY,- ; and FAL facility code in high word 
OE AB 0342 965 FABSL~STV+2(RB5 ; ; 
05 0344 966 RSB 3; Exit with RMS code in RO 
O3¢5 968 :+ 
0345 969 ; The DAP Status message was mapped into an RMS completion code and put in RO. 
0345 970 ; Update the STV field of the FAB/RAB as appropriate--some RMS codes require 
0343 ore 3 @ secondary status code, some require a value, and others do not refer to it. 
0345 973 ° 
345 974 DAPSTV_TO_STV: : 
4C A?) DO 0345 975 MOVL DAPSL_STV(R7),- ; Put STV value received (if any) 
OC A8 348 976 FABSL_STV(RB8) ; _in STV field of FAB/RAB 
1150 OF £1 O34A 977 BBC #RMS$U_STVSTATUS,RO,20$ ; Branch if RMS code does not require 
Q34—E 978 i an associated status code in STV 
8 4—€ 979 : (used by SGETMSG and SPUTMSG) 
05 67 34~—~«COE1 4 980 BBC #DAPSV_VAXVMS,(R7),10$ ; Use STV value from FAL only if 
OC AB OD 8 2 981 TSTL FABSL_STV(R8) 3 remote node is VMS and the value 
08 1 9 ¢ BNEQ 20% ; _is non-zero 
O1F7A0046 BF OD 3 5 985 108: MOVL #FALS_DAPFAIL,- ; Otherwise, stuff a general FAL status 
OC As 5D = 984 FABSL_STV(R8) ; _code in STV 
05 O35F 985 20$: RSB : Exit with RMS code in RO 
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$ a8s -SBTTL NTSRMT_xxx ERROR REPORTING ROUTINES 
6 9 § i++ 
6 990 ; CASE 3 == RMS generates an RMS$_SUPPORT error for a re vest ngt 5 Syggerted by 
6 44 : the remote system based x the Capabilities stated by AL in 
6 9 : Configuration saaseeae. | 2, fol lowing status information is Rd 
6 99 : (1) STS of FAB/RAB = RMS. SUPPORT 
? o3e 3 = (2):—sSSTV of FAB/RAB = FAL Status code 
8 44) ; Note: R8& contains the address of FAB/RAB on input. 
0 6 998 2 
6 99 whew ; Unsupported value in ORG field 
51 (4694 BF 3C QO § 1000 OVZWL #<FAL$ ORGE*HFFFFD, R11 ; Sonerate secondary error code 
3606.11 «0365 = =1001 RMT_COMMO 5 
tae 1906 NTSRMT_RFM: ; Unsupported value in RFM field 
51 cC49C BF 3C 67 100 MOV VZWL #<FAL$ pean areeew at ; Generate secondary error code 
eF 611 = «036C 19ge BRB RMT_COMMO 3 
036E 1005 NTSRMT_RAT:: 3; Unsupported value in RAT field 
51 COAG BF 3C¢ B39 1006 MOVZWL #<FALS$ Lihat Ri ; Generate secondary error code 
28 11 03735 1007 RMT_COMMO : 
0375 1008 NTSSUP_FOP:: ; Temporary 
0375 1009 NTSRMT_FOP1:: ; Unsupported value in FOP field 
51 C6EC BF 3C 9375 1010 MOVZWL #<FALS FOPIE&*XFFFF>,R1 ; Generate secondary error code 
21. 11 O37A 1011 RMT_COMMON 3 
037C 1918 NTSRMT_FOP2:: ; Unsupported value in SOP field 
51 CE8C BF 3C O37C 101 MOVZWL #<FALS A Aalst R1 ; Generate secondary error code 
1A 11 0381 1014 BRB RMT_COMMO : 
tet 1015 NTSRMT_RAC:: ; Unsupported value in RAC field 
51 ¢€894 BF 3C 0383 1016 MOVZWL  #<FALS RACH EP ETE> 3; Generate secondary error code 
13. 11 0388 1017 RMT_COAMO : 
038A 1018 NTSRMT_ROP:: 3; Unsupported value in ROP field 
51 CBAC 8F 3C OQO38A 1019 MOVZWL #<FAL$ ot Ai Sua, Ri ; Generate secondary error code 
Oc 11 O38F 1020 RMT_CORMO : 
0391 1021 NTSRMT_ACCFUNC:: Unsupported RMS service call 
51 (684 8F 3C 0391 1056 MOVZWL #<FALS _ACCFUNCE“*XFFFF>, Ri: ;Generate secondary error code 
05 11 0396 102 BRB RMT_CORMON 3 
0398 1024 NT$SUP_ cTLEUNC::" : Temporary 
0398 1025 NTSRMT_CTLFUNC:: Unsupported RMS service call 
51 C884 BF 3C 0398 1026 MOVZWL  #<FALS _CTLFUNCE*XFFFF>,RI; ;Generate secondary error code 
039D 544 RMT_COMMON: ; Common code 
OC AB 51 BO 039D 1028 MOVW R1,FABSL_STV(R8) ; Put associated FAL code in STV 
O1F7 8F BO Q3A1 1029 MOVW #rALs. FATILITY,~ ; of FAB/RAB 
A8 O3A9 1030 FABSL~STV+2(RB) ; 
3A7 1031 RMSERR SUPPORT ; Declare primary error 
05 O3AC 1032 RSB 3; Exit with RMS code in RO 


= 
NTODAPIO DAP MESSAGE 1/0 15-SEP-1984 23:55: AX/VMS Macro v04-00 Page 24 | NT( 
Yoo 008 NTSLCL_xxx ERROR REPORTING ROUTINES g=$66=18 4 3:33:93 RMS.SRCINTODAPIO.MAR; 1 ( 2) | vo 
AD 4 ~SBTTL NTSLCL_xxx ERROR REPORTING ROUTINES 
AD 3+ 
AD ; CASE 4 == RMS generates an RMS$_SUPPORT error for a request that it cannot | 
8 AD : suppers in @ network context. The following status information is returned: 
AC : (1) STS of FAB/RAB = RMS$_SUPPORT 
Ap 9 ; (2) STV of FAB/RAB = another RMS completion code 
AD tg ; Note: The secondary RMS error code cannot have an associated secondary code 
300 rf 3 of its own. | 
8 . 22 ; Note: R8& contains the address of FAB/RAB on input. 
O3AD 23 
Q3AD 48 NTSLCL_RFM:: Unsuspported value in RFM field 
O3AD 49 RMSERR RFM,R1 Generate secondary error code 
1A 11 0382 50 B LCL_COMMON 
0384 51 NTSLCL_FOP:: Unsupported value in FOP field 
0384 26 RMSERR FOP,R1 Generate secondary error code 
13. 11 0389 105 &B LCL_COMMON | 
388 54 NTSLCL_ROP:: Unsupported value in ROP field 
388 55 RMSERR ROP,R1 Generate secondary error code 
oc.” 36 BRB LCL_ COMMON 
57 NTSLCL_JOP:: Unsupported value in JOP field 
58 RMSERR JOP,R1 Generate secondary error code 
05 11 39 R LCL_ COMMON | 


WTSLCL ERY: Unsupported RMS service call 


LCL_ COMMON : 
MOV 


ENV,R1 Generate secondary error code 


Common code 


Sete Se Se Se Be Se Se Se Se Be Se Se Se Sse Se Se Se Se Ge 


Oe et = = —s © as 2 + 1s ts 1 1 1 os — 9 2 Ls 9 2 1s 2 1 a a te 
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0 
0 
03C0 
03¢ 
03C 
03¢ 
03C9 
03¢9 61 
O3CE $6 
Oc AB =651~—~=—«B0 tH; 6 R1,FABSL_STV(R8) Put associated RMS code in STV 
01 B60 03D 64 MOVW #RMS__FATILITY,=- of FAB/RAB 
OE AB 0304 1065 FABSC™STV+2(R8) 
0306 1066 RMSERR SUPPORT Declare prinery error 
05 0308 67 RSB Exit with RMS code in RO 
03DC 68 
030C 69 ;++ 
03DC 70 ; Branch aids for exiting RMS. 
030C 71 3-- 
030C 6 : 
03DC 75 NTSEXRMS: : ; Exit RMS with failure code in RO | 
QOOO0000"EF 17 O3DC 74 RMSEXRMS ; Branch aid ; 
bees 75 NTSEXSUC: : ; Exit RMS with success code in RO | 
OO0O00000'EF 17 Bee 6 JMP RMSEXSUC ; Branch aid 
O38 10/8 
03€8 79 -END ; End of module 
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| Symbol table §-SEP-1984 16:20:28 CRMS.SRCINTODAPIO.MAR; 1 (12), 
NTSLCL_JOP C2 RG 1 NWASQ_SAVE DESC 0 90120 
NTSLCL_RFM AD RG 1 NWASQ_XLTBOF 000024¢ 
NTSLCL_ROP 0 38 RG 1 NWASQ_XLTBUF2 0000254 
NTSRECEIVE 000017D RG 1 =XMT 00000E8 
NTSRMT_ACCFUNC Bone 91 RG 1 NWAST_ACSBUF 000 of 
NTSRMT_CTLFUNC 00 7 RG 1 NWA$T_AUXBUF $8 E 
NTSRMT_FO a4 75 RG 01 NWAST_DAP it 0000 
NTSRMT_FOP2 i 037C RG 4 NWA$T_ INODEBUF 00004AC 
NTSRMT_ORG 0000 | RG 1 NWAST_ITM_ATTR 0000200 
NTSRMT_RAC 00000385 RG 01 NWAST_ITM_END 0000 3h 
NTSRMT_RAT 00000 of RG 01 NWAST_ITM_LST 0000200 
NTSRMT_RFM 00000 g RG 01 WAST_ITM_MAXINDX 444 18 
NTSRMT_ROP QOO0038A RG 01 WAST_ITM- STRING 000020C 
NTSSTACLAST SCE RG 01 NWAS$T_NCBBUF 54544 2c 
NTSSUP_CTLFUNC 00060 3 RG 01 NWAS$T_NODEBUF 0000169 
NTSSUP_FOP 00000375 RG 01 NWAST_RCVBUF 000001A0 
NTSTRANSMIT 00000000 RG 01 NWAST_SC 00000100 
NTSTRANSMIT_PKT QO0000A5 RG 01 NWAST_TE 44 8 | 
NTSUNSUPPORTED teeeeeee =X 01 NWAST_XLTBUF 1 a es 
NWASB_ALLXABCNT 0000011C NWAST_XLTBUF2 Q00003AC | 
NWASB_DAP_RAC 000000C9 NWAST_XMTBUF 000003C0 
NWASB_FILESYS 0000 NWASV_FLUSH_ BUF = 00000001 
NWASB_KEYXABCNT 000 NWASV_LAST_MSG = 00000000 
NWASB_NETSTRSIZ 00 NWASV_NODETODE = 00000002 
NWASB_NODBUF $1Z 00 NWASV_RCVAST = 00000004 
NWA$B_ORG 00 NWASV_RCVQIO = 00000003 
NWASB_OSTYPE 00 NWASV_RCVSTALL = 00000005 
NWASB_RFM 00 NWASW_BUILD 000000D2 
NWASB_RMS_RAC 00 NWASW_DAPBUF SIZ O00000CA | 
NWASC_BLN 00 NWASW_DIR_OFF 00000ccc 
NWASK_| NWASW_DISPLAY 00000000 
NWASL_ALLXABADR NWASW_FIL O00000CE 
NWASL_DATXABADR NWASW_JNLRABJOP 0000011 | 
NWASL_DEV PARSE_FAIL 00000273 R 01 | 
NWASL_FHCXABADR PIOSA~ TRACE aeeeeeee =X 01 
NWASL_KEYXABADR PIOSGO_IIOIMPA eeeeeeee = X 01 
NWASL_MSG_MASK PIO$GW-PIOIMPA aeeeeeee =X 01 
NWASL_PROXABADR PROTOCOL 00000203 01 
NWASL_RDTXABADR RMSCHKAST aeeeeeee =X 01 
NWASL_SAVE_FLGS EXR aeeeeere YX 01 | 
NWASL_SUMXABADR EXxs tteeeeee = =X 01 
NWASL— THREAD RMSMAPERR eereeeee = X 01 
NWASL_XLTATTR RMSSETEFN aeeeeeee = X 01 
NWASL_XLTBUFFLG RMSSTALL eeeeenee =X 4 
NWASL_XLTCNT RMSSTALLAST eeeneere 1 
NWASL_XLTMAXINDX RMSTHREADG aeeeeeee =X 01 
NWASL_XLTSIZ RMSS$V_STVSTATUS 
NWASQ_ACS RMS$_BUG_D 

RMSS$_ENV 

RMS$_FOP 

RMS$_JOP 

$$_ 
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RMS$_SYN 
RMSS_SYS 

RMS_ "FACILITY 
RMT” COMMON 
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1 
SETOP Q10_PARAM $ fe 8 
ATUS_RETURN 3 3 R 1 
sue 0 9B R 1 
$”S$Q10 eeenerer GX 1 
SYSSSETEF eeeeneee = 6X 1 
TPT$L_NTDAP_DEC teeeeeee =X 01 | 
TPTSL-NTDAP~ENC tereneee§ Xx 01 | 
TPTSL_NTDAP_RCV eeereeee x 4 | 
TPTSL— NTDAP_ XMT tettenee x 1 
UNSUPPORT 000002E7 R 01 
Cave woe ene eo wm eee + 
' Psect synopsis” ! | 
PSECT name Allocation PSECT No. Attributes 
> eS Q0000000 0.) OO ¢ OQ.) NOPIC USR CON ABS”) LCL ors te NOEXE NORD po apa NOVEC BYTE | 
NK SNE TWORK Q000003E8 ( 1000.) 01 ¢ 1.) PIC USR CON REL GBL NOSHR EXE RD NOWRT NOVEC BYTE | 
SABSS 00000800 ( 2048.) 02 ¢( 2.) NOPIC USR CON ABS LCL NOSHR EXE RD WRT NOVEC BYTE 
few ce meme roe nnn ene sno n woes } 
: Performance indicators ; | 
Soe ee we ee Se BP]! SH ee mee Bm ee ee 
Phase Page faults CPU Time Elapsed Time | 
Initialization 32 00:00:00.05 00:00:01.28 
Command processing 134 00:00:00.64 00:00:03.58 
Pass 1 462 00:00:19.91 00:00:40.88 
synbol table sort 0 00:00:02.64 00:00:02.90 
Pas 196 00:00:04.22 00:00:07.59 
Symbol table output 30 00:00:00.21 00:00:00.96 
Psect synopsis output 1 00:00:00.04 00:00:00.04 
Cross-reference output 0 00:00:00.00 00:00:00.00 
Assembler run totals 857 00:00:27.71 00:00:57.28 


The working set Limit was 1950 pages. 

105813 bytes (207 pages) of virtual memory were used to buffer the intermediate cod 
There were 100 pages of symbol table space al located to hold 1839 non-local and 31 loess symbols. 
1079 source Lines were read in Pass 1, produc cing 1? object records in Pass 2. 

pages of virtual memory were used to define 36 macros. 


a SS SS 


NTODAPIO DAP MESSAGE 1/0 15-SEP-1 38s 3:55:03 VAX/VMS Macro Vv04-00 Page 28 
VAX-11 Macro Run Statistics 5-SEP-1984 16:20:28 CRMS.SRCINTODAPIO.MAR;1 (12) 


tween nae eee See oe wee mw ee > 


! ; Macro Library statistics A: 


Macro library name Macros _defined 
$25 SDUA 8: SYS. .0BJ Li: mS: 1 1 

~$255$DUA28: CRMS .OBJ JRMS.MLB; 1 21 
5SSDUA2B: SYSi IBISTARLET, MLB;2 10 

TOTALS (all Libraries) 32 


2087 GETS were required to define 32 macros. 
There were no errors, warnings or information messages. 
MACRO/LIS=L1S$:NTODAP1O/0BJ=OBJ$:NTODAPIO MSRC$:NTODAPIO/UPDATE=(ENH$:NTODAPIO) +LIB$:RMS/LIB+EXECML$/LIB 
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